Chicken Shen

Check-in [0fb787401c]
Login
Overview
Comment:Changed occurance of 'wasp' -> 'chicken'
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:0fb787401cbd4531c7f5671f19d1ff9a896b36a23effa30949a441785ffbc42f
User & Date: david 2019-02-01 10:27:30
Context
2019-02-02
11:35
Create new branch named "fasterFileAccess" check-in: 86e7cb789f user: david tags: fasterFileAccess
2019-02-01
10:27
Changed occurance of 'wasp' -> 'chicken' Leaf check-in: 0fb787401c user: david tags: trunk
10:10
Added shen code => k-lambda doc check-in: dba3ef221a user: david tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to chicken-shen.scm.

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    (lambda ()
      (print "Usage: shen [options] [...args...]")
      (print "  -h, --help          : Prints help and exits")
      (print "  -l, --load <file>   : Loads Shen <file>")
      (print "  -e, --eval <string> : Evaluates <string>")
      (print "  -r, --repl          : Run the REPL, even if -l or -e are provided")
      (print "Any additional arguments are passed to the Shen system in")
      (print "the variable shen-wasp.*argv*")))
  (exit 1))

(define opts
  (list
   (args:make-option (e eval) #:required "evaluate")
   (args:make-option (l load) #:required "load")   
   (args:make-option (h help) #:none     "display")







|







16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    (lambda ()
      (print "Usage: shen [options] [...args...]")
      (print "  -h, --help          : Prints help and exits")
      (print "  -l, --load <file>   : Loads Shen <file>")
      (print "  -e, --eval <string> : Evaluates <string>")
      (print "  -r, --repl          : Run the REPL, even if -l or -e are provided")
      (print "Any additional arguments are passed to the Shen system in")
      (print "the variable shen-chicken.*argv*")))
  (exit 1))

(define opts
  (list
   (args:make-option (e eval) #:required "evaluate")
   (args:make-option (l load) #:required "load")   
   (args:make-option (h help) #:none     "display")