diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-12-02 19:00:57 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-12-02 19:03:48 +0100 |
| commit | 60ce72b9b9b230cb7dfafebdfba04ca318c8fb47 (patch) | |
| tree | db1288e8de005233b556dc9596c1e9ffe0710a6b | |
| parent | 7cfcb60bc16263ee48323781a57b1007a27380d0 (diff) | |
| download | guile-60ce72b9b9b230cb7dfafebdfba04ca318c8fb47.tar.gz | |
Fix brainfuck->scheme compiler.
* module/language/brainfuck/compile-scheme.scm (compile-scheme): Fix
brainfuck compiler.
| -rw-r--r-- | module/language/brainfuck/compile-scheme.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/module/language/brainfuck/compile-scheme.scm b/module/language/brainfuck/compile-scheme.scm index 86bc35fdd..7a2568dc1 100644 --- a/module/language/brainfuck/compile-scheme.scm +++ b/module/language/brainfuck/compile-scheme.scm @@ -1,6 +1,6 @@ ;;; Brainfuck for GNU Guile -;; Copyright (C) 2009 Free Software Foundation, Inc. +;; Copyright (C) 2009, 2013 Free Software Foundation, Inc. ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -55,11 +55,8 @@ (values `(let ((pointer 0) (tape (make-vector ,tape-size 0))) - ,@(if (not (eq? '<brainfuck> (car exp))) - (error "expected brainfuck program") - `(begin - ,@(compile-body (cdr exp)) - (write-char #\newline)))) + ,@(compile-body (cdr exp)) + (write-char #\newline)) env env)) |