$ od -c -N 50000 [_CDCSL_93-16_]<1>Cedar>release>SchemeLib>Syntax2.$cheme 0000000 # 001 006 021 004 w h e n 004 c o n s 004 t 0000020 2 1 9 004 t 2 2 2 005 c a d d r 004 c 0000040 a d r 004 l i s t \r s y n t a x - 0000060 m a t c h ? 005 b e g i n 002 i f 003 0000100 . . . 004 m o r e 004 b o d y \t p r 0000120 e d i c a t e 005 e r r o r 005 c d 0000140 d d r \v m a k e - s y n t a x 0000160 021 020 I n t e r p r e t e d C o 0000200 d e 022 \0 017 023 023 002 \a 020 \a \0 003 037 \n \0 0000220 002 032 ( 001 003 $ 001 025 * 021 022 A n o n 0000240 y m o u s f u n c t i o n 022 002 0000260 \a 003 \a 002 016 023 023 004 \t \a 001 \a \a \a 006 \a 0000300 005 \a 001 \a 001 \a 004 \a 017 \a 016 004 \b 037 4 \0 0000320 \t 032 024 \0 004 & \0 001 033 025 026 001 005 022 0000340 + 034 027 035 001 003 036 004 030 005 036 005 036 006 0000360 001 003 036 \a 001 003 004 004 \v 036 \b 030 006 030 \a 0000400 001 \v \a \0 001 \a \0 004 005 \a \0 \a \r \a \f 0000420 \a \v \a \n \a \t \a \b \a \0 021 016 i n v a 0000440 l i d s y n t a x 021 004 t 2 2 2 0000460 \0 \a \0 021 002 ( ) \0 \n # 001 006 022 006 u n 0000500 l e s s 004 c o n s 004 l i s t 004 c 0000520 a d r 005 c d d d r 005 c a d d r \r 0000540 s y n t a x - m a t c h ? 004 t 2 0000560 2 3 004 t 2 2 5 005 b e g i n 003 n o 0000600 t 002 i f 003 . . . 004 m o r e 004 b o 0000620 d y \t p r e d i c a t e 005 e r r 0000640 o r \v m a k e - s y n t a x 021 0000660 020 I n t e r p r e t e d C o d 0000700 e 022 \0 017 023 023 002 \a 021 \a \0 003 037 \n \0 002 0000720 032 ( 001 003 $ 001 025 * 021 022 A n o n y 0000740 m o u s f u n c t i o n 022 002 \a 0000760 \b \a \a 016 023 023 004 \n \a 001 \a 006 \a 002 \a 002 0001000 \a 003 \a 001 \a 001 \a 005 \a 004 \a 020 004 \t 037 9 0001020 \0 \t 032 024 \0 004 & \0 001 033 025 026 001 005 0001040 022 0 034 027 035 030 005 036 004 001 003 004 036 005 030 0001060 006 036 006 036 \a 001 003 036 \b 001 003 004 004 \v 0001100 036 \t 030 \a 030 \b 001 \v \a \0 001 \a \0 004 005 0001120 \a \0 \a 017 \a 016 \a \r \a \f \a \v \a \n \a \t 0001140 \a \0 021 016 i n v a l i d s y n t 0001160 a x 021 004 t 2 2 5 \0 \a \0 021 002 ( ) \0 0001200 \n # 001 006 022 005 m a c r o 004 l i s t 0001220 004 c a d r \r s y n t a x - m a t 0001240 c h ? 004 c o n s 003 v a r 005 e r r 0001260 o r \v m a k e - s y n t a x 005 c 0001300 a d d r 004 p r o c 004 n a m e 006 d 0001320 e f i n e 005 q u o t e 006 l a m b 0001340 d a 004 t 2 2 7 004 t 2 2 6 004 t 2 2 0001360 8 006 g e n s y m 021 020 I n t e r 0001400 p r e t e d C o d e 022 \0 017 023 023 0001420 002 \a \a \a \0 003 037 \n \0 002 032 ( 001 003 $ 001 0001440 025 * 021 022 A n o n y m o u s f 0001460 u n c t i o n 022 003 \a 020 \a 017 \a 016 016 0001500 023 023 004 017 \a 004 \a 003 \a 021 \a 003 \a 001 \a 002 0001520 \a 001 \a 001 \a 001 \a \b \a 001 \a 001 \a 002 \a 006 0001540 \a 006 004 020 037 d \0 020 032 024 \0 004 & \0 001 0001560 033 025 026 001 005 022 [ 034 002 & \0 002 035 027 030 0001600 005 002 005 022 O 036 004 030 006 036 005 001 003 036 0001620 006 030 \a 036 \a 030 \b 002 036 \b 036 \t 001 003 0001640 036 \n 030 \t 036 \v 030 \n 036 \f 001 003 004 002 0001660 005 004 005 004 \v 036 \r 030 \v 030 \f 002 030 \r \f 0001700 004 036 016 030 016 030 017 001 \v \a \0 001 \a \0 003 0001720 \a \0 \a \n \a \t \0 \a 005 \a \v \a \a \a \r \a 0001740 004 \a \f \a \0 021 033 d o e s n o t 0001760 f i t ' w i t h ' p a t t e 0002000 r n \a 005 \a \0 021 016 i n v a l i d 0002020 s y n t a x 021 004 t 2 2 8 \0 \a \0 021 0002040 002 ( ) \0 \n # 001 006 032 004 c o n s 004 l 0002060 i s t 006 e x p o r t 004 c a d r 004 0002100 l o o p 003 l s t 003 c d r 003 c a r 0002120 003 l e t 004 s e t ! 005 n u l l ? 004 0002140 t 2 3 1 003 . . . 006 a p p e n d \r 0002160 s y n t a x - m a t c h ? 004 t 2 0002200 2 9 004 t 2 3 2 \v m a k e - s y n 0002220 t a x 003 v a r 005 e r r o r 004 c d 0002240 d r 005 b e g i n 004 d e f n 005 q u 0002260 o t e 005 l i s t * 006 d e f i n e 0002300 021 020 I n t e r p r e t e d C 0002320 o d e 022 \0 017 023 023 002 \a 021 \a 002 003 037 \n 0002340 \0 002 032 ( 001 003 $ 001 025 * 021 022 A n o 0002360 n y m o u s f u n c t i o n 022 0002400 004 \a 020 \a 017 \a 004 \a 004 016 023 023 004 025 \a \0 0002420 \a 016 \a \0 \a \r \a 003 \a 001 \a \0 \a \0 \a 001 0002440 \a 001 \a \0 \a \0 \a \r \a 024 \a 001 \a \0 \a 003 0002460 \a 003 \a 001 \a 003 \a 023 004 021 037 201 \0 \0 026 032 0002500 024 \0 004 & \0 001 033 025 026 001 005 022 w 034 0002520 027 035 030 005 & \0 002 ( 006 & \0 002 002 036 004 0002540 001 003 003 036 005 036 006 030 \a 036 \a 036 \b 036 \t 0002560 030 \b 036 \n 030 \t 036 \v 030 \n 036 \f 036 \r 001 0002600 003 036 016 036 017 030 \v 036 020 001 003 004 003 004 004 0002620 004 004 003 030 \f & \0 003 ( \r & \0 003 003 036 0002640 021 001 003 003 004 004 036 022 030 016 036 023 001 003 0002660 004 004 004 \n 036 024 030 017 030 020 001 \v \a 002 001 0002700 \a 002 004 004 \a 002 002 \a 022 \a \f \a 026 \a \f \a 0002720 025 017 \a 004 022 001 \a \v 017 024 024 004 005 \a \n 0002740 \a \0 \a 001 \a \a \a 006 004 004 037 035 \0 005 032 0002760 \0 003 022 \n 024 * 033 034 025 035 \0 003 026 005 ! 0003000 001 002 036 004 \0 003 003 \n \0 \a 031 017 021 006 ( 0003020 t 2 3 1 ) \0 \a \b \a 005 \a \b \0 \a 001 017 0003040 \a 004 022 001 \a \v 017 024 024 004 006 \a \n \a 030 0003060 \a \0 \a \0 \a \a \a 006 004 005 037 ! \0 006 032 0003100 \0 003 022 \n 024 * 033 034 025 035 036 004 \0 003 026 0003120 004 004 027 ! 001 003 036 005 \0 003 003 \v \0 \a \t 0003140 001 002 \a \a \a 005 003 \a \t \a 005 002 \a 006 \a 005 0003160 021 006 ( t 2 3 1 ) \0 \a 027 \a 002 021 016 i 0003200 n v a l i d s y n t a x 021 004 t 0003220 2 3 2 \0 \a 002 021 002 ( ) \0 \n 0003234