globally unique marks and labels using syntax-session-id

[bpt/guile.git] / module / ice-9 / boot-9.scm

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 39be83d..c8a56e0 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3889,7 +3889,8 @@ module '(ice-9 q) '(make-q q-length))}."
   (steal-bindings! the-root-module (resolve-module '(system syntax))
                    '(syntax-local-binding
                      syntax-module
-                     syntax-locally-bound-identifiers)))
+                     syntax-locally-bound-identifiers
+                     syntax-session-id)))
 
 
 \f