Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-22 07:09:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2019-03-21 17:08:16 -04:00
parent a8a1fd211d
commit 17cecfe834
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
test-clo.scm
View file

@ -3,6 +3,9 @@
(scheme base) (scheme base)
(scheme write)) (scheme write))
;; TODO: can we prove that the define is being used like "let" and not "letrec"?
;; If so, can simplify things a bit, perhaps
;(define (test) ;(define (test)
; (define (fnc x y z) (write (list x y z))) ; (define (fnc x y z) (write (list x y z)))
; (fnc 1 2 3) ; (fnc 1 2 3)
@ -32,11 +35,28 @@
; #f))) ; #f)))
; (test %halt)) ; (test %halt))
;(define (test)
; (letrec ((fnc (lambda (x y z) (write (list x y z)))))
; (fnc 1 2 3)
; (fnc 1 2 3))
; )
(define (test) (define (test)
(let ((fnc (lambda (x y z) (write (list x y z))))) (let ((fnc (lambda (x y z) (write (list x y z)))))
(fnc 1 2 3) (fnc 1 2 3)
(fnc 1 2 3)) (fnc 1 2 3))
) )
;"---------------- after macro expansion:"
; */
;/*
;((define test
; (lambda ()
; ((lambda (fnc$1) (fnc$1 1 2 3) (fnc$1 1 2 3))
; (lambda (x$2 y$3 z$4) (write (list x$2 y$3 z$4))))))
; (test))
;"---------------- after wrap-mutables:" ;"---------------- after wrap-mutables:"
; */ ; */
;/* ;/*