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

diff --git a/ChangeLog b/ChangeLog
index 280728d..f5a3459 100644 (file)
--- 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 (file)
--- 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
 ;;;