- ((name) (loop instrs offset (cdr this-line)))
- ((comment) (loop instrs offset name))
- ((org) (loop instrs (cdr this-line) name))
- ((instr) (loop (cons (cdr this-line) instrs) offset name)))
- (make-prog name (reverse instrs) offset)))))
+ ((name) (loop instrs offset (cdr this-line) author))
+ ((author) (loop instrs offset name (cdr this-line)))
+ ((comment) (loop instrs offset name author))
+ ((org) (loop instrs (cdr this-line) name author))
+ ((instr) (loop (cons (cdr this-line) instrs) offset name author)))
+ (begin
+ (if (and name (not (null? instrs)))
+ (make-prog name author (reverse instrs) offset)
+ (error "Failed to parse name and/or instructions")))))))
+