From cdc75fd001b5a8c8d89b2545bd40740dbb26cb5d Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 2 Dec 2013 19:00:57 +0100
Subject: [PATCH] Fix brainfuck->scheme compiler.

* module/language/brainfuck/compile-scheme.scm (compile-scheme): Fix
  brainfuck compiler.
---
 module/language/brainfuck/compile-scheme.scm | 9 +++------
 1 file 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))