From 553499ddd82fe2eb21094b8414af7e2b66a8bf9b Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 2 Oct 1997 19:19:44 +0000 Subject: [PATCH] Changed %STRING-APPEND to (APPLY STRING-APPEND ...) because someone removed %STRING-APPEND from the system. --- v7/src/swat/scheme/tk-mit.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/swat/scheme/tk-mit.scm b/v7/src/swat/scheme/tk-mit.scm index 648fcf88c..acffbd7fd 100644 --- a/v7/src/swat/scheme/tk-mit.scm +++ b/v7/src/swat/scheme/tk-mit.scm @@ -1,7 +1,7 @@ ; -*- Scheme -*- ;;;;; C external interfaces to Tk procedures not associated with ;;;;; a particular widget. -;;;; $Id: tk-mit.scm,v 1.3 1996/07/31 18:31:20 adams Exp $ +;;;; $Id: tk-mit.scm,v 1.4 1997/10/02 19:19:44 adams Exp $ ;;;; This is the lowest level Scheme interface to general TK/TCL data ;;;; structures. Primitives are defined in tk-mit.c and tk.c @@ -114,7 +114,7 @@ ((number? arg) (swat:number->string arg)) ((symbol? arg) (symbol-name arg)) ((TK-variable? arg) (TK-variable.tk-name arg)) - ((pair? arg) (%string-append (map stringify-for-tk arg))) + ((pair? arg) (apply string-append (map stringify-for-tk arg))) ((procedure? arg) (->string (arg))) (else (error "tcl-global-eval: Unknown argument type" arg)))) @@ -130,8 +130,7 @@ (lambda () (%tclGlobalEval (application->TKMainWindow application) - ;; (%string-append x) == (apply string-append x) - (%string-append (map stringify-for-tk (cons command-name args))))))) + (apply string-append (map stringify-for-tk (cons command-name args))))))) ;;;turn off all floating errors around TK processing -- 2.25.1