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

* Makefile.am (psyntax.pp): Enable rule for psyntax.pp only in

Browse source 
maintainer mode.  Use compile-psyntax.scm for actual compilation.
Make sure the uninstalled guile is used.
(EXTRA_DIST): Distribute compile-psyntax.scm
* compile-psyntax.scm: New file.
* syncase.scm (psyncomp): Removed, it is now in
compile-psyntax.scm.
This commit is contained in:
Marius Vollmer 2001-07-23 22:13:30 +00:00
parent 1b3d27e503
commit 489a7bdd73
2 changed files with 3 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/Makefile.am
View file

@ -45,5 +45,7 @@ install-data-local:
## test.scm is not currently installed. ## test.scm is not currently installed.
EXTRA_DIST = $(ice9_sources) test.scm and-let-star-compat.scm EXTRA_DIST = $(ice9_sources) test.scm and-let-star-compat.scm
if MAINTAINER_MODE
psyntax.pp: psyntax.ss psyntax.pp: psyntax.ss
cd $(srcdir) && guile -c '(load-from-path "ice-9/syncase") (define-module (ice-9 syncase)) (psyncomp)' GUILE_LOAD_PATH=$(srcdir)/..:.. ../libguile/guile -s compile-psyntax.scm $(srcdir)/psyntax.ss $(srcdir)/psyntax.pp
endif

16
ice-9/syncase.scm
View file

@ -139,22 +139,6 @@
(define generated-symbols (make-weak-key-hash-table 1019)) (define generated-symbols (make-weak-key-hash-table 1019))
;;; Utilities
(define (psyncomp)
(system "mv -f psyntax.pp psyntax.pp~")
(let ((in (open-input-file "psyntax.ss"))
(out (open-output-file "psyntax.pp")))
(let loop ((x (read in)))
(if (eof-object? x)
(begin
(close-port out)
(close-port in))
(begin
(write (sc-expand3 x 'c '(compile load eval)) out)
(newline out)
(loop (read in)))))))
;;; Load the preprocessed code ;;; Load the preprocessed code
(let ((old-debug #f) (let ((old-debug #f)