040-argv.scm (270B)
1 ; Verify the prelude's (argv) and (exit n) wrappers. argv[0] is the 2 ; program name, argv[1] is this script. Exit with the entry count so 3 ; the runner can diff it against expected-exit. 4 (define (count xs) 5 (if (null? xs) 0 (+ 1 (count (cdr xs))))) 6 (exit (count (argv)))