- (next-command (find (lambda (command) (
- (display next-command-args)(newline)
- (display next-command-name) (newline)))))
+ (next-command (find (lambda (command)
+ (equal? (command-name command) next-command-name))
+ commands)))
+ (next-command next-command-args)))))