Skip to content

Instantly share code, notes, and snippets.

@edw

edw/rest-args.scm

Created December 1, 2018 22:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save edw/8b212a2c4d00d3c45c3184f09ee33981 to your computer and use it in GitHub Desktop.
Save edw/8b212a2c4d00d3c45c3184f09ee33981 to your computer and use it in GitHub Desktop.
Download ZIP
Poking Scheme implementations' rest-arg handling bits
Raw
rest-args.scm
(define (evil . args)
(set-cdr! args '())
args)
(let ((xs '(0 1 2 3)))
(display (apply evil xs))
(newline)
(display xs)
(newline))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment