Merge remote-tracking branch 'origin/stable-2.0'

[bpt/guile.git] / module / language / brainfuck / spec.scm

diff --git a/module/language/brainfuck/spec.scm b/module/language/brainfuck/spec.scm
index a4ba60f..f7cd901 100644 (file)
--- a/module/language/brainfuck/spec.scm
+++ b/module/language/brainfuck/spec.scm
@@ -1,6 +1,6 @@
 ;;; Brainfuck for GNU Guile.
 
-;; Copyright (C) 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2009, 2010 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
@@ -35,9 +35,8 @@
 ; language.
 
 (define-language brainfuck
-  #:title      "Guile Brainfuck"
-  #:version    "1.0"
-  #:reader     (lambda () (read-brainfuck (current-input-port)))
+  #:title      "Brainfuck"
+  #:reader     (lambda (port env) (read-brainfuck port))
   #:compilers  `((tree-il . ,compile-tree-il)
                   (scheme . ,compile-scheme))
   #:printer    write