Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Conditionally include cyclone-specific stuff

Browse source
This commit is contained in:
Justin Ethier 2015-02-21 22:38:13 -05:00
parent b2364f8e66
commit 70927e1fca
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
icyc.scm
View file

@ -4,7 +4,10 @@
;; ;;
;; This module contains a simple Read-Eval-Print Loop ;; This module contains a simple Read-Eval-Print Loop
;; ;;
(display *Cyc-version-banner*) (cond-expand
(cyclone
(display *Cyc-version-banner*))
(else #f))
(define (repl) (define (repl)
(display "cyclone> ") (display "cyclone> ")
(let ((c (eval (read)))) (let ((c (eval (read))))