mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

remove `version' field from <language>

Browse source 
* 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").
This commit is contained in:
Andy Wingo 2010-05-02 11:19:13 +02:00
parent acc51c3e65
commit 246ea9e16a
11 changed files with 15 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/assembly/spec.scm
View file

@ -1,6 +1,6 @@
;;; Guile Virtual Machine Assembly ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -26,7 +26,6 @@
(define-language assembly (define-language assembly
#:title "Guile Virtual Machine Assembly Language" #:title "Guile Virtual Machine Assembly Language"
#:version "2.0"
#:reader (lambda (port env) (read port)) #:reader (lambda (port env) (read port))
#:printer write #:printer write
#:parser read ;; fixme: make a verifier? #:parser read ;; fixme: make a verifier?

5
module/language/brainfuck/spec.scm
View file

@ -1,6 +1,6 @@
;;; Brainfuck for GNU Guile. ;;; 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 ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -35,8 +35,7 @@
; language. ; language.
(define-language brainfuck (define-language brainfuck
#:title "Guile Brainfuck" #:title "Brainfuck"
#:version "1.0"
#:reader (lambda (port env) (read-brainfuck port)) #:reader (lambda (port env) (read-brainfuck port))
#:compilers `((tree-il . ,compile-tree-il) #:compilers `((tree-il . ,compile-tree-il)
(scheme . ,compile-scheme)) (scheme . ,compile-scheme))

3
module/language/bytecode/spec.scm
View file

@ -1,6 +1,6 @@
;;; Guile Lowlevel Intermediate Language ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -31,7 +31,6 @@
(define-language bytecode (define-language bytecode
#:title "Guile Bytecode Vectors" #:title "Guile Bytecode Vectors"
#:version "0.3"
#:reader (lambda (port env) (read port)) #:reader (lambda (port env) (read port))
#:printer write #:printer write
#:compilers `((objcode . ,compile-objcode)) #:compilers `((objcode . ,compile-objcode))

5
module/language/ecmascript/spec.scm
View file

@ -1,6 +1,6 @@
;;; ECMAScript specification for Guile ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -29,8 +29,7 @@
;;; ;;;
(define-language ecmascript (define-language ecmascript
#:title "Guile ECMAScript" #:title "ECMAScript"
#:version "3.0"
#:reader (lambda (port env) (read-ecmascript/1 port)) #:reader (lambda (port env) (read-ecmascript/1 port))
#:compilers `((tree-il . ,compile-tree-il)) #:compilers `((tree-il . ,compile-tree-il))
;; a pretty-printer would be interesting. ;; a pretty-printer would be interesting.

3
module/language/elisp/spec.scm
View file

@ -1,6 +1,6 @@
;;; Guile Emac Lisp ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -26,7 +26,6 @@
(define-language elisp (define-language elisp
#:title "Emacs Lisp" #:title "Emacs Lisp"
#:version "0.0"
#:reader (lambda (port env) (read-elisp port)) #:reader (lambda (port env) (read-elisp port))
#:printer write #:printer write
#:compilers `((tree-il . ,compile-tree-il))) #:compilers `((tree-il . ,compile-tree-il)))

3
module/language/glil/spec.scm
View file

@ -1,6 +1,6 @@
;;; Guile Lowlevel Intermediate Language ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -33,7 +33,6 @@
(define-language glil (define-language glil
#:title "Guile Lowlevel Intermediate Language (GLIL)" #:title "Guile Lowlevel Intermediate Language (GLIL)"
#:version "0.3"
#:reader (lambda (port env) (read port)) #:reader (lambda (port env) (read port))
#:printer write-glil #:printer write-glil
#:parser parse-glil #:parser parse-glil

1
module/language/objcode/spec.scm
View file

@ -80,7 +80,6 @@
(define-language objcode (define-language objcode
#:title "Guile Object Code" #:title "Guile Object Code"
#:version "0.3"
#:reader #f #:reader #f
#:printer write-objcode #:printer write-objcode
#:compilers `((value . ,objcode->value)) #:compilers `((value . ,objcode->value))

5
module/language/scheme/spec.scm
View file

@ -1,6 +1,6 @@
;;; Guile Scheme specification ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -36,8 +36,7 @@
;;; ;;;
(define-language scheme (define-language scheme
#:title "Guile Scheme" #:title "Scheme"
#:version "0.5"
#:reader (lambda (port env) #:reader (lambda (port env)
;; Use the binding of current-reader from the environment. ;; Use the binding of current-reader from the environment.
;; FIXME: Handle `read-options' as well? ;; FIXME: Handle `read-options' as well?

3
module/language/tree-il/spec.scm
View file

@ -1,6 +1,6 @@
;;; Tree Intermediate Language ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -37,7 +37,6 @@
(define-language tree-il (define-language tree-il
#:title "Tree Intermediate Language" #:title "Tree Intermediate Language"
#:version "1.0"
#:reader (lambda (port env) (read port)) #:reader (lambda (port env) (read port))
#:printer write-tree-il #:printer write-tree-il
#:parser parse-tree-il #:parser parse-tree-il

5
module/language/value/spec.scm
View file

@ -1,6 +1,6 @@
;;; Guile Lowlevel Intermediate Language ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -23,8 +23,7 @@
#:export (value)) #:export (value))
(define-language value (define-language value
#:title "Guile Values" #:title "Values"
#:version "0.3"
#:reader #f #:reader #f
#:printer write #:printer write
) )

5
module/system/base/language.scm
View file

@ -1,6 +1,6 @@
;;; Multi-language support ;;; 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 ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -22,7 +22,7 @@
(define-module (system base language) (define-module (system base language)
#:use-module (system base syntax) #:use-module (system base syntax)
#:export (define-language language? lookup-language make-language #: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-printer language-parser
language-compilers language-decompilers language-evaluator language-compilers language-decompilers language-evaluator
language-joiner language-make-default-environment language-joiner language-make-default-environment
@ -38,7 +38,6 @@
(define-record/keywords <language> (define-record/keywords <language>
name name
title title
version
reader reader
printer printer
(parser #f) (parser #f)