END;
PROC fail = ([] CHAR message) VOID:
- ### Mournfully announce an error and quit.
+ ### Mournfully announce an error and quit.
#
BEGIN put(stand error, (program name, ": ", message, new line));
execve("/bin/false", "false", ()) # Can this be any worse? #
IF i > UPB string THEN fail("no data") FI;
CHAR data = string[i]; i +:= 1;
REF NODE right = parse;
- IF (i > UPB string | TRUE | string[i] /= ")")
+ IF (i > UPB string | TRUE | string[i] /= ")")
THEN fail("missing )") FI;
i +:= 1;
HEAP NODE := (left, right, data)
#
BEGIN REF NODEITER i = node iterator(n), ii = node iterator(nn);
BOOL win := FALSE;
- DO REF NODE n = next node(i), nn = next node(ii);
+ DO REF NODE n = next node(i), nn = next node(ii);
IF tree is not empty(n)
THEN IF tree is not empty(nn)
THEN IF data OF n = data OF nn THEN SKIP ELSE done FI
((define-generator (name . args) . body)
(define (name . args)
(make-coroutine (lambda ()
- (begin . body)
- (resume (calling-coroutine) #f #f)))))))
+ (begin . body)
+ (resume (calling-coroutine) #f #f)))))))
(define (yield object)
;; Yield OBJECT from a generator. The generator protocol returns two