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