Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 14:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-10-30 18:14:31 -04:00
parent 7a5b03edd7
commit 2a46a8f235
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
flatten-seq.scm Normal file
View file

@ -0,0 +1,11 @@
(import (scheme base) (scheme write) (scheme cyclone util))
(define sexp
'(Cyc-seq
(set! b '(#f . #f))
((Cyc-seq
(set-car! a 1)
((Cyc-seq
(set-cdr! a '(2))))))))
;; TODO: goal is a single cyc-seq containing all expressions as a single list