mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +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

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))