From: akr <akr>
Date: Thu, 12 Nov 1998 07:00:50 +0000 (+0000)
Subject: * pccl-om.el (ccl-cascading-read): New facility.
X-Git-Tag: apel-9_10~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0a240249be88a5b024e3b855c7a63f8234a9372d;p=elisp%2Fapel.git

* pccl-om.el (ccl-cascading-read): New facility.
---

diff --git a/ChangeLog b/ChangeLog
index 280728d..f5a3459 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-11-10  Tanaka Akira  <akr@jaist.ac.jp>
 
+	* pccl-om.el (ccl-cascading-read): New facility.
+
+1998-11-10  Tanaka Akira  <akr@jaist.ac.jp>
+
 	* EMU-ELS (emu-modules): Always install 'pccl.
 
 	* broken.el: Use 19.28 style quasi-quote.
diff --git a/pccl-om.el b/pccl-om.el
index 40e2080..bb9204e 100644
--- a/pccl-om.el
+++ b/pccl-om.el
@@ -114,6 +114,15 @@ If CCL-PROG is symbol, it is dereferenced.
 	   (broken-p 'ccl-execute-eof-block-on-decoding)))
   t)
 
+(broken-facility ccl-cascading-read
+  "Emacs CCL read command does not accept more than 2 arguments."
+  (condition-case nil
+      (progn
+        (define-ccl-program cascading-read-test
+          '(1
+            (read r0 r1 r2)))
+        t)
+    (error nil)))
 
 ;;; @ end
 ;;;