X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme-library.scm;h=fb76f3ae009ae1e874c8dfeda598b0ff1e93b1f7;hp=cd2693231759f24143b192baa22b34d6d06f2f99;hb=0dadd5f58d2c204c7f621ccd3c42f75a3fd790a8;hpb=f982d9a741201927d246f9ece3456f331668a4ae

diff --git a/src/scheme-library.scm b/src/scheme-library.scm
index cd26932..fb76f3a 100644
--- a/src/scheme-library.scm
+++ b/src/scheme-library.scm
@@ -271,6 +271,7 @@
   (eq? (cond-predicate clause) 'else))
 
 (define (expand-clauses clauses)
+  (display "Expanding cond clauses...")
   (if (null? clauses)
     (none)
     (let ((first (car clauses))