summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-12-02 19:00:57 +0100
committerAndy Wingo <wingo@pobox.com>2013-12-02 19:02:38 +0100
commitcdc75fd001b5a8c8d89b2545bd40740dbb26cb5d (patch)
tree8c9e4f215958b3aa4ab54fabec2d71d1042e50a4
parent79657fd3ec264ecd533a62d349c2cf1a2be2df14 (diff)
downloadguile-cdc75fd001b5a8c8d89b2545bd40740dbb26cb5d.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.scm9
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))