Advertisement
Guest User

match ???

a guest
Aug 25th, 2021
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.13 KB | None | 0 0
  1. (match *open-sockets*
  2.         (() #f)
  3.         (((s . force-close) . rest)
  4.          (set! *open-sockets* rest)
  5.          force-close))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement