mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +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
no-source
(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 'macro)
e))
@ -2020,7 +2023,10 @@
(if (null? clauses)
(build-application no-source
(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) ()
((pat exp)
(if (and (id? (syntax pat))

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

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

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

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