suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 5b5e7e25f0b2e60f5a33f6d2a354ac0dcde212af
This commit is contained in:
Matthew Flatt 2004-11-24 21:42:33 +00:00
parent 674e53ebb5
commit dc69f0b229
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/etc.ss
View File

@ -36,7 +36,9 @@
hash-table hash-table
begin-with-definitions) begin-with-definitions
begin-lifted)
(define true #t) (define true #t)
(define false #f) (define false #f)
@ -553,4 +555,9 @@
prev-defns)) prev-defns))
null)] null)]
[else [else
(loop (cdr exprs) prev-defns (cons (car exprs) prev-exprs))])))))) (loop (cdr exprs) prev-defns (cons (car exprs) prev-exprs))])))))
(define-syntax (begin-lifted stx)
(syntax-case stx ()
[(_ expr0 expr ...)
(syntax-local-lift-expression #'(begin expr0 expr ...))])))