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

a few fixups

Browse source 
* module/ice-9/psyntax.scm (chi-install-global, syntax-case): Fix a
  couple of cases in which bare datums were passed to output
  constructors.

* module/ice-9/psyntax-pp.scm: Regenerated.

* module/language/scheme/spec.scm (scheme): Clean up the #:compilers
  list.

* module/language/tree-il/compile-glil.scm (flatten): Fix call to
  `length' in call/cc compiler.
This commit is contained in:
Andy Wingo 2009-05-20 11:59:41 +02:00
parent a1a482e0e9
commit e32a1792de
4 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because one or more lines are too long

10
module/ice-9/psyntax.scm
View file

@ -961,7 +961,10 @@
(list (build-application (list (build-application
no-source no-source
(build-primref no-source 'module-ref) (build-primref no-source 'module-ref)
(list (build-application no-source 'current-module '()) (list (build-application
no-source
(build-primref no-source 'current-module)
'())
(build-data no-source name))) (build-data no-source name)))
(build-data no-source 'macro) (build-data no-source 'macro)
e)) e))
@ -2020,7 +2023,10 @@
(if (null? clauses) (if (null? clauses)
(build-application no-source (build-application no-source
(build-primref no-source 'syntax-violation) (build-primref no-source 'syntax-violation)
(list #f "source expression failed to match any pattern" x)) (list (build-data no-source #f)
(build-data no-source
"source expression failed to match any pattern")
x))
(syntax-case (car clauses) () (syntax-case (car clauses) ()
((pat exp) ((pat exp)
(if (and (id? (syntax pat)) (if (and (id? (syntax pat))

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

@ -47,10 +47,8 @@
#:version "0.5" #:version "0.5"
#:reader read #:reader read
#:read-file read-file #:read-file read-file
#:compilers `( #:compilers `((tree-il . ,compile-tree-il)
(tree-il . ,compile-tree-il) (ghil . ,compile-ghil))
(ghil . ,compile-ghil)
)
#:decompilers `((tree-il . ,decompile-tree-il)) #:decompilers `((tree-il . ,decompile-tree-il))
#:evaluator (lambda (x module) (primitive-eval x)) #:evaluator (lambda (x module) (primitive-eval x))
#:printer write #:printer write

2
module/language/tree-il/compile-glil.scm
View file

@ -245,7 +245,7 @@
((and (primitive-ref? proc) ((and (primitive-ref? proc)
(eq? (primitive-ref-name proc) '@call-with-current-continuation) (eq? (primitive-ref-name proc) '@call-with-current-continuation)
(= (length args 1))) (= (length args) 1))
(comp-push (car args)) (comp-push (car args))
(case context (case context
((tail) (emit-code src (make-glil-call 'goto/cc 1))) ((tail) (emit-code src (make-glil-call 'goto/cc 1)))