[Guile-commits] GNU Guile branch, master, updated. v2.1.0-526-g7f71030

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=7f710308376126e415d109e302d7b4013326d712

The branch, master has been updated
       via  7f710308376126e415d109e302d7b4013326d712 (commit)
       via  cdc75fd001b5a8c8d89b2545bd40740dbb26cb5d (commit)
      from  79657fd3ec264ecd533a62d349c2cf1a2be2df14 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7f710308376126e415d109e302d7b4013326d712
Author: Andy Wingo <address@hidden>
Date:   Mon Dec 2 19:02:05 2013 +0100

    Fix brainfuck comment
    
    * module/language/brainfuck/parse.scm: Fix outdated comment.

commit cdc75fd001b5a8c8d89b2545bd40740dbb26cb5d
Author: Andy Wingo <address@hidden>
Date:   Mon Dec 2 19:00:57 2013 +0100

    Fix brainfuck->scheme compiler.
    
    * module/language/brainfuck/compile-scheme.scm (compile-scheme): Fix
      brainfuck compiler.

-----------------------------------------------------------------------

Summary of changes:
 module/language/brainfuck/compile-scheme.scm |    9 +++------
 module/language/brainfuck/parse.scm          |    5 +----
 2 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/module/language/brainfuck/compile-scheme.scm 
b/module/language/brainfuck/compile-scheme.scm
index 86bc35f..7a2568d 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))
 
diff --git a/module/language/brainfuck/parse.scm 
b/module/language/brainfuck/parse.scm
index 81dbdd9..286d1e2 100644
--- a/module/language/brainfuck/parse.scm
+++ b/module/language/brainfuck/parse.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
@@ -30,9 +30,6 @@
 ; where <instruction> is a symbolic name representing the type of instruction
 ; and the optional arguments represent further data (for instance, the body of
 ; a [...] loop as a number of nested instructions).
-;
-; A full brainfuck program is represented by the (<brainfuck> instructions)
-; object.
 
 
 ; While reading a number of instructions in sequence, all of them are cons'ed


hooks/post-receive
-- 
GNU Guile