mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

(language ghil def) becomes (language ghil)

Browse source 
* module/language/Makefile.am:
* module/language/ghil/Makefile.am:
* module/language/ghil.scm:
* module/language/ghil/compile-glil.scm:
* module/language/ghil/spec.scm:
* module/language/glil/Makefile.am:
* module/language/glil.scm:
* module/language/glil/compile-objcode.scm:
* module/language/glil/spec.scm:
* module/language/scheme/inline.scm:
* module/language/scheme/translate.scm:
* module/oop/goops.scm: Rename (language ghil def) and (language glil
  def) to not have the "def". They're nicer names.
This commit is contained in:
Andy Wingo 2009-01-08 19:24:47 +01:00
parent d9042285ba
commit 9ff56d9e65
12 changed files with 18 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/language/scheme/inline.scm
View file

@ -21,7 +21,7 @@
(define-module (language scheme inline)
#:use-module (system base syntax)
#:use-module (language ghil def)
#:use-module (language ghil)
#:use-module (srfi srfi-16)
#:export (*inline-table* define-inline try-inline try-inline-with-env))
@ -57,8 +57,8 @@
`(set! (@ (language scheme inline) *inline-table*)
(assq-set! (@ (language scheme inline) *inline-table*)
,sym
(let ((make-ghil-inline (@ (language ghil def) make-ghil-inline))
(make-ghil-quote (@ (language ghil def) make-ghil-quote))
(let ((make-ghil-inline (@ (language ghil) make-ghil-inline))
(make-ghil-quote (@ (language ghil) make-ghil-quote))
(try-inline (@ (language scheme inline) try-inline)))
(case-lambda
,@(let lp ((in clauses) (out '()))

2
module/language/scheme/translate.scm
View file

@ -22,7 +22,7 @@
(define-module (language scheme translate)
#:use-module (system base pmatch)
#:use-module (system base language)
#:use-module (language ghil def)
#:use-module (language ghil)
#:use-module (language scheme inline)
#:use-module (system vm objcode)
#:use-module (ice-9 receive)