errno-handler for evaluation of commands

2005-05-27 21:14:42 +00:00 · 2005-05-27 21:14:42 +00:00 · 03f482a04a
parent 407de494d4
commit 03f482a04a
1 changed files with 4 additions and 1 deletions
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@ -239,7 +239,10 @@
 	(call-with-values
 	    (lambda ()
 	      (find/init-plugin-for-result
-	       ((command-plugin-evaluater command-plugin) command args)))
+	       (with-errno-handler
+                ((errno data)
+                 (else data))
+                ((command-plugin-evaluater command-plugin) command args))))
 	  (lambda (result plugin)
 	    (let ((new-entry
 		   (make-history-entry command args