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

back to old version of foreach

Browse Source 
svn: r4861
This commit is contained in:
John Clements 2006-11-15 17:55:55 +00:00
parent 4e1276dd58
commit 8e95c4ec7b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/stepper/through-tests.ss
View File

@ -218,6 +218,8 @@ exec mred -u "$0" "$@"
[(_ name test)
(syntax/loc stx (add-test `name (lambda () test)))]))
;; Eli can't help adding his own convenient but complex syntax here (JBC, 2006-11-14):
(define-syntax (t stx)
(define (split l)
(let loop ([l l] [r '()])
@ -821,6 +823,7 @@ exec mred -u "$0" "$@"
(before-after ((define f_0 (lambda (x) (+ x 13))) (define a (hilite f_0)))
((define f_0 (lambda (x) (+ x 13))) (define a (hilite (lambda (x) (+ x 13))))))
(finished-stepping))))
;;;;;;;;;;;;;
;;
;; LET*