From 75b30febc8e78e952ac4005698d6a6c2fac19090 Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 27 Sep 2005 09:00:43 +0000 Subject: [PATCH] For the Scheme mode, use the expression as command part of darcs patch Sun Sep 18 13:15:34 EEST 2005 Martin Gasbichler --- scheme/nuit-engine.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm index e6f04bc..1c904e7 100644 --- a/scheme/nuit-engine.scm +++ b/scheme/nuit-engine.scm @@ -237,11 +237,8 @@ (let ((viewer (find/init-plugin-for-result (eval-string command-line)))) - (let* ((tokens (split-command-line command-line)) - (command (car tokens)) - (args (cdr tokens)) - (new-entry - (make-history-entry command args viewer))) + (let ((new-entry + (make-history-entry command-line '() viewer))) ;; #### shouldn't we use some kind of insertion here? (append-to-history! new-entry) (signal-result-buffer-object-change)