remove `version' field from <language>

* module/system/base/language.scm (<language>): Remove the `version'
  field from languages. It just wasn't useful.

* module/language/assembly/spec.scm:
* module/language/brainfuck/spec.scm:
* module/language/bytecode/spec.scm:
* module/language/ecmascript/spec.scm:
* module/language/elisp/spec.scm:
* module/language/glil/spec.scm:
* module/language/objcode/spec.scm:
* module/language/scheme/spec.scm:
* module/language/tree-il/spec.scm:
* module/language/value/spec.scm: Remove #:version from all language
  definitions. Shorten some language names (e.g. "Guile Scheme" ->
  "Scheme").

11 files changed, 15 insertions, 26 deletions

diff --git a/module/language/assembly/spec.scm b/module/language/assembly/spec.scm
index 9e34c4def..01a55c4e1 100644
--- a/module/language/assembly/spec.scm
+++ b/module/language/assembly/spec.scm
@@ -1,6 +1,6 @@
 ;;; Guile Virtual Machine Assembly
 
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 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
@@ -26,7 +26,6 @@
 
 (define-language assembly
   #:title	"Guile Virtual Machine Assembly Language"
-  #:version	"2.0"
   #:reader	(lambda (port env) (read port))
   #:printer	write
   #:parser      read ;; fixme: make a verifier?
diff --git a/module/language/brainfuck/spec.scm b/module/language/brainfuck/spec.scm
index 9c4d0a880..f7cd90109 100644
--- 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,8 +35,7 @@
 ; language.
 
 (define-language brainfuck
-  #:title	"Guile Brainfuck"
-  #:version	"1.0"
+  #:title	"Brainfuck"
   #:reader	(lambda (port env) (read-brainfuck port))
   #:compilers	`((tree-il . ,compile-tree-il)
                   (scheme . ,compile-scheme))
diff --git a/module/language/bytecode/spec.scm b/module/language/bytecode/spec.scm
index b38b0911f..57ccd7185 100644
--- a/module/language/bytecode/spec.scm
+++ b/module/language/bytecode/spec.scm
@@ -1,6 +1,6 @@
 ;;; Guile Lowlevel Intermediate Language
 
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 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
@@ -31,7 +31,6 @@
 
 (define-language bytecode
   #:title	"Guile Bytecode Vectors"
-  #:version	"0.3"
   #:reader	(lambda (port env) (read port))
   #:printer	write
   #:compilers   `((objcode . ,compile-objcode))
diff --git a/module/language/ecmascript/spec.scm b/module/language/ecmascript/spec.scm
index dd4dc3c0f..9a4bfab24 100644
--- a/module/language/ecmascript/spec.scm
+++ b/module/language/ecmascript/spec.scm
@@ -1,6 +1,6 @@
 ;;; ECMAScript specification for 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
@@ -29,8 +29,7 @@
 ;;;
 
 (define-language ecmascript
-  #:title	"Guile ECMAScript"
-  #:version	"3.0"
+  #:title	"ECMAScript"
   #:reader	(lambda (port env) (read-ecmascript/1 port))
   #:compilers   `((tree-il . ,compile-tree-il))
   ;; a pretty-printer would be interesting.
diff --git a/module/language/elisp/spec.scm b/module/language/elisp/spec.scm
index 072ccb9a4..d93208e41 100644
--- a/module/language/elisp/spec.scm
+++ b/module/language/elisp/spec.scm
@@ -1,6 +1,6 @@
 ;;; Guile Emac Lisp
 
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 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
@@ -26,7 +26,6 @@
 
 (define-language elisp
   #:title	"Emacs Lisp"
-  #:version	"0.0"
   #:reader	(lambda (port env) (read-elisp port))
   #:printer	write
   #:compilers	`((tree-il . ,compile-tree-il)))
diff --git a/module/language/glil/spec.scm b/module/language/glil/spec.scm
index 7733d7bbe..a8164e5e4 100644
--- a/module/language/glil/spec.scm
+++ b/module/language/glil/spec.scm
@@ -1,6 +1,6 @@
 ;;; Guile Lowlevel Intermediate Language
 
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 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
@@ -33,7 +33,6 @@
 
 (define-language glil
   #:title	"Guile Lowlevel Intermediate Language (GLIL)"
-  #:version	"0.3"
   #:reader	(lambda (port env) (read port))
   #:printer	write-glil
   #:parser      parse-glil
diff --git a/module/language/objcode/spec.scm b/module/language/objcode/spec.scm
index 707dd1f9d..a4cb0621d 100644
--- a/module/language/objcode/spec.scm
+++ b/module/language/objcode/spec.scm
@@ -80,7 +80,6 @@
 
 (define-language objcode
   #:title	"Guile Object Code"
-  #:version	"0.3"
   #:reader	#f
   #:printer	write-objcode
   #:compilers   `((value . ,objcode->value))
diff --git a/module/language/scheme/spec.scm b/module/language/scheme/spec.scm
index 6cfbc422f..802a51d8f 100644
--- a/module/language/scheme/spec.scm
+++ b/module/language/scheme/spec.scm
@@ -1,6 +1,6 @@
 ;;; Guile Scheme specification
 
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 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
@@ -36,8 +36,7 @@
 ;;;
 
 (define-language scheme
-  #:title	"Guile Scheme"
-  #:version	"0.5"
+  #:title	"Scheme"
   #:reader      (lambda (port env)
                   ;; Use the binding of current-reader from the environment.
                   ;; FIXME: Handle `read-options' as well?
diff --git a/module/language/tree-il/spec.scm b/module/language/tree-il/spec.scm
index b2ebcfcab..38e6d311c 100644
--- a/module/language/tree-il/spec.scm
+++ b/module/language/tree-il/spec.scm
@@ -1,6 +1,6 @@
 ;;; Tree Intermediate Language
 
-;; 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
@@ -37,7 +37,6 @@
 
 (define-language tree-il
   #:title	"Tree Intermediate Language"
-  #:version	"1.0"
   #:reader	(lambda (port env) (read port))
   #:printer	write-tree-il
   #:parser      parse-tree-il
diff --git a/module/language/value/spec.scm b/module/language/value/spec.scm
index aebba8c8d..6c6cff93f 100644
--- a/module/language/value/spec.scm
+++ b/module/language/value/spec.scm
@@ -1,6 +1,6 @@
 ;;; Guile Lowlevel Intermediate Language
 
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 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
@@ -23,8 +23,7 @@
   #:export (value))
 
 (define-language value
-  #:title	"Guile Values"
-  #:version	"0.3"
+  #:title	"Values"
   #:reader	#f
   #:printer	write
   )
diff --git a/module/system/base/language.scm b/module/system/base/language.scm
index 046e11dbe..8d02cd204 100644
--- a/module/system/base/language.scm
+++ b/module/system/base/language.scm
@@ -1,6 +1,6 @@
 ;;; Multi-language support
 
-;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 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
@@ -22,7 +22,7 @@
 (define-module (system base language)
   #:use-module (system base syntax)
   #:export (define-language language? lookup-language make-language
-            language-name language-title language-version language-reader
+            language-name language-title language-reader
             language-printer language-parser 
             language-compilers language-decompilers language-evaluator
             language-joiner language-make-default-environment
@@ -38,7 +38,6 @@
 (define-record/keywords <language>
   name
   title
-  version
   reader
   printer
   (parser #f)