From b6c6bf4f15da5c9483f32c1ce757d548ce17a9e5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 6 Mar 1998 21:13:18 +0000 Subject: [PATCH] (define (x) ...) in local original commit: 62e9090d181abd6dd4970f8c086ba3c6032d42f5 --- collects/tests/mzscheme/macrolib.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.ss index 0276715..2e0cb76 100644 --- a/collects/tests/mzscheme/macrolib.ss +++ b/collects/tests/mzscheme/macrolib.ss @@ -61,6 +61,7 @@ (test 1 (lambda () (local ((define-values (a b c) (values 1 2 3))) a))) (test 8 'local (local [(define lambda 8)] lambda)) (test 12 'local (local [(define (f y) (add1 y))] (f 11))) +(test 120 'local (local [(define (f y) 'ignore-me (add1 y))] (f 119))) (test 17 'local (local [(define-values (apple b) (values 12 17))] b)) (test 4 'local (local [(define-struct cons (car cdr))] (cons-car (make-cons 4 5)))) (test 40 'local (local [(define-struct (cons struct:exn) (car cdr))] (cons-car (make-cons "" (void) 40 50))))