mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-16 18:50:23 +02:00
Code Activity

use #:keywords in module/*.scm, not :keywords

Browse source 
* module/system/base/syntax.scm (keywords): Don't enable :keywords, it
  breaks code that may assume that ':foo is a symbol, like boot-9.

* module/*.scm: Don't use :keywords, use #:keywords. The user can decide
  if she wants #:keywords in their .guile, and :keywords might make us
  compile modules differently.
This commit is contained in:
Andy Wingo 2008-09-09 06:56:06 +02:00
parent 13906f976e
commit 1a1a10d3a5
29 changed files with 191 additions and 193 deletions
Download patch file Download diff file Expand all files Collapse all files

20
module/system/il/compile.scm
View file

@ -20,14 +20,14 @@
;;; Code:
(define-module (system il compile)
:use-syntax (system base syntax)
:use-module (system il glil)
:use-module (system il ghil)
:use-module (ice-9 common-list)
:export (compile))
#:use-syntax (system base syntax)
#:use-module (system il glil)
#:use-module (system il ghil)
#:use-module (ice-9 common-list)
#:export (compile))
(define (compile x e . opts)
(if (memq :O opts) (set! x (optimize x)))
(if (memq #:O opts) (set! x (optimize x)))
(codegen x))
@ -330,10 +330,10 @@
;; compile body
(comp body #t #f)
;; create GLIL
(let ((vars (make-glil-vars :nargs (length vars)
:nrest (if rest 1 0)
:nlocs (length locs)
:nexts (length exts))))
(let ((vars (make-glil-vars #:nargs (length vars)
#:nrest (if rest 1 0)
#:nlocs (length locs)
#:nexts (length exts))))
(make-glil-asm vars meta (reverse! stack))))))))
(define (finalize-index! list)