cond expand the else binding

parent b0576fae
......@@ -2171,6 +2171,11 @@ empty list."
#f))
#f))
(define elsel '())
(cond-expand
(guile-2.0 or guile-2.2 (set! elsel '()))
(guile-3.0 (set! elsel '(else))))
(define (python-comp in x)
(define (strit x)
(if in
......@@ -2205,7 +2210,6 @@ empty list."
(cons it x)
#f))))
(define start
(match args
((args . rest)
......@@ -2217,7 +2221,7 @@ empty list."
#:use-module ((guile) #:select
(@ @@ pk let* lambda call-with-values case-lambda
set! = * + - < <= > >= / pair? fluid-set!
fluid-ref else
fluid-ref ,@elsel
syntax-rules let-syntax abort-to-prompt))
#:use-module (language python module python)
#:use-module ((language python compile) #:select (pks))
......
......@@ -12,7 +12,12 @@
#:use-module (ice-9 format)
#:use-module (ice-9 control)
#:use-module (oop goops)
#:use-module (oop dict)
#:use-module ((oop dict) #:renamer
(lambda (x)
(cond
((eq? x 'format) 'usp-format)
((eq? x 'to-list) 'usp-to-list)
(else x))))
#:use-module (oop pf-objects)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment