[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-117-ge54c7dd

[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=e54c7dd67cd299e248c544caf330587915cc95a0

The branch, stable-2.0 has been updated
       via  e54c7dd67cd299e248c544caf330587915cc95a0 (commit)
       via  60ce72b9b9b230cb7dfafebdfba04ca318c8fb47 (commit)
      from  7cfcb60bc16263ee48323781a57b1007a27380d0 (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 e54c7dd67cd299e248c544caf330587915cc95a0
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 60ce72b9b9b230cb7dfafebdfba04ca318c8fb47
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