Skip to content

Instantly share code, notes, and snippets.

@heyLu
Last active August 29, 2015 14:14
Show Gist options
  • Save heyLu/9233ff27923be61dd80a to your computer and use it in GitHub Desktop.
Save heyLu/9233ff27923be61dd80a to your computer and use it in GitHub Desktop.
(evalo q '() '(1 2 3))
A tiny REPL session demonstrating `evalo` (https://github.com/heyLu/lp/blob/master/scm/evalo.scm).
$ petite 2015-02-02 1:14PM
Petite Chez Scheme Version 8.4
Copyright (c) 1985-2011 Cadence Research Systems
> (load "evalo.scm")
> (run 1 (q) (evalo q '() '(1 2 3)))
('(1 2 3))
> (run 4 (q) (evalo q '() '(1 2 3)))
('(1 2 3)
(('((lambda (_.0) _.0) in _.1) '(1 2 3)) (sym _.0))
('((lambda (_.0) '(1 2 3)) in _.1) '_.2)
(('((lambda (_.0) _.1) in ((_.1 1 2 3) . _.2)) '_.3)
(=/= ((_.1 _.0)))
(sym _.1)))
>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment