Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
back to old version of foreach
svn: r4861
  • Loading branch information
jbclements committed Nov 15, 2006
1 parent 4e1276d commit 8e95c4e
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion collects/tests/stepper/through-tests.ss
Expand Up @@ -217,6 +217,8 @@ exec mred -u "$0" "$@"
(syntax-case stx ()
[(_ 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)
Expand Down Expand Up @@ -821,7 +823,8 @@ 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*
;;
Expand Down

0 comments on commit 8e95c4e

Please sign in to comment.