Commit b14dcb5d authored by Niels Möller's avatar Niels Möller
Browse files

* src/scm/gaba.scm (string-upcase): Moved definition to

guile-compat.scm. scsh already provides string-upcase, and the
definition here trigs a bug in string->list in scsh-0.5.2.

Rev: src/scm/gaba.scm:1.6
Rev: src/scm/guile-compat.scm:1.3
parent 9ea89e14
......@@ -26,9 +26,6 @@
(and (<= l (string-length s))
(string=? prefix (substring s 0 l)))))
(define (string-upcase s)
(list->string (map char-upcase (string->list s))))
(define (read-expression p)
(let ((line (read-line)))
; (werror "read line: '~s'\n" (if (eof-object? line) "<EOF>" line))
......@@ -519,6 +516,8 @@
(werror "Processing expression ~S\n" name)
(let ((translated (translate expr)))
(werror "Compiled to ~S\n" translated)
;; (werror "Globals: ~S\n" globals)
;; (werror "Params: ~S\n" params)
(list "static struct lsh_object *\n" name "("
(if params (declare-params params) "void")
")\n{\n"
......
......@@ -96,3 +96,5 @@
((= n 0) (car l))
(else (nth (cdr l) (-1+ n)))))
(define (string-upcase s)
(list->string (map char-upcase (string->list s))))
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