From 0a240249be88a5b024e3b855c7a63f8234a9372d Mon Sep 17 00:00:00 2001
From: akr <akr>
Date: Thu, 12 Nov 1998 07:00:50 +0000
Subject: [PATCH] * pccl-om.el (ccl-cascading-read): New facility.

---
 ChangeLog  |    4 ++++
 pccl-om.el |    9 +++++++++
 2 files changed, 13 insertions(+)

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
 ;;;
-- 
1.7.10.4