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

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

@ -218,6 +218,8 @@ exec mred -u "$0" "$@"
[(_ name test) [(_ name test)
(syntax/loc stx (add-test `name (lambda () 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-syntax (t stx)
(define (split l) (define (split l)
(let loop ([l l] [r '()]) (let loop ([l l] [r '()])
@ -821,7 +823,8 @@ exec mred -u "$0" "$@"
(before-after ((define f_0 (lambda (x) (+ x 13))) (define a (hilite f_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)))))) ((define f_0 (lambda (x) (+ x 13))) (define a (hilite (lambda (x) (+ x 13))))))
(finished-stepping)))) (finished-stepping))))
;;;;;;;;;;;;;
;;;;;;;;;;;;;
;; ;;
;; LET* ;; LET*
;; ;;