Imported Upstream version 11.9

1 files changed, 2 insertions, 2 deletions

diff --git a/xen.c b/xen.c
index 3f34e71..48e8910 100644
--- a/xen.c
+++ b/xen.c
@@ -2134,8 +2134,8 @@ s7_scheme *s7_xen_initialize(s7_scheme *sc)
   XEN_EVAL_C_STRING("(define (1+ x) \"add 1 to arg\" (+ x 1))");
   XEN_EVAL_C_STRING("(define (1- x) \"subtract 1 from arg\" (- x 1))");
   XEN_EVAL_C_STRING("(defmacro while (whether . body) `(do () ((not ,whether)) ,@body))");
-  XEN_EVAL_C_STRING("(define (identity x) \"return arg\" x)");                    /* popup.scm uses this */
-  XEN_EVAL_C_STRING("(define (throw . args) (apply error args))"); /* selection.scm uses this (also the break macro in snd-xen.c) */
+  XEN_EVAL_C_STRING("(define (identity x) \"return arg\" x)");
+  XEN_EVAL_C_STRING("(define (throw . args) (apply error args))");
 
   return(s7);
 }