From cfdeeef4283c4e6d2f571bef3e815a5cf986aae0 Mon Sep 17 00:00:00 2001 From: Chew Theam Yong Date: Tue, 11 May 2010 21:38:29 +1200 Subject: [PATCH] Renamed function argument 'as' to 'arrs' for consistency, just like in nconc. (PS ok, it's really because 'as' is an Actionscript 3 keyword). --- runtime/ps-runtime-lib.lisp | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/runtime/ps-runtime-lib.lisp b/runtime/ps-runtime-lib.lisp index 0c37cfb..89c9dbb 100644 --- a/runtime/ps-runtime-lib.lisp +++ b/runtime/ps-runtime-lib.lisp @@ -5,13 +5,13 @@ (defparameter *ps-lisp-library* '(progn - (defun mapcar (fun &rest as) + (defun mapcar (fun &rest arrs) (let ((result-array (make-array))) - (if (= 1 (length as)) - (dolist (element (aref as 0)) + (if (= 1 (length arrs)) + (dolist (element (aref arrs 0)) ((@ result-array push) (fun element))) - (dotimes (i (length (aref as 0))) - (let ((args-array (mapcar (lambda (a) (return (aref a i))) as))) + (dotimes (i (length (aref arrs 0))) + (let ((args-array (mapcar (lambda (a) (return (aref a i))) arrs))) ((@ result-array push) ((@ fun apply) fun args-array))))) (return result-array))) -- 1.6.0.4