From 5bb4afc12fae4a4e158173b5aa85fc5704a52e0a Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Fri, 4 Nov 1994 07:19:17 +0000
Subject: [PATCH] Add "WRITE ALL".

---
 cupl.y | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cupl.y b/cupl.y
index e5c15a8..e553c3e 100644
--- a/cupl.y
+++ b/cupl.y
@@ -178,6 +178,7 @@ simple	:    LET IDENTIFIER '=' expr	{$$ = cons(LET, $2, $4);}
 	|    GO TO IDENTIFIER		{$$ = cons(GO, $3, NULLNODE);}
 	|    GO TO IDENTIFIER END	{$$ = cons(OG, $3, NULLNODE);}
 	|    READ readl			{$$ = $2;}
+	|    WRITE ALL			{$$ = cons(WRITE, NULLNODE, NULLNODE);}
 	|    WRITE writel		{$$ = $2;}
 	|    ALLOCATE allocl		{$$ = $2;}
 	|    WATCH varlist		{$$ = $2;}
-- 
2.43.0