~ chicken-core (chicken-5) 68f0df2c995dfb5bc9149d2ce1a69e9a456985d0
commit 68f0df2c995dfb5bc9149d2ce1a69e9a456985d0 Author: felix <felix@call-with-current-continuation.org> AuthorDate: Sun May 2 01:12:44 2010 +0200 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Sun May 2 01:12:44 2010 +0200 removed unused definition diff --git a/csi.scm b/csi.scm index 05b1fa79..5f424f6b 100644 --- a/csi.scm +++ b/csi.scm @@ -54,7 +54,7 @@ EOF (always-bound ##sys#windows-platform) (hide parse-option-string bytevector-data member* canonicalize-args - describer-table dirseparator? resolve-var + describer-table dirseparator? findall command-table) ) @@ -355,9 +355,6 @@ EOF (history-add rs) (apply values rs) ) ) ) ) ) ) -(define (resolve-var str) - (##sys#strip-syntax (string->symbol str) (##sys#current-environment) #t)) - ;;; Parse options from string:Trap