From b8f0157b13bf3fa1c36d283b6bc454ae80f45d75 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 9 May 2015 10:25:48 -0700
Subject: Adding pset operator.

* place.tl (pset): New macro.

* lisplib.c (set_place_dlt_entries): Add pset.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index 1be90260..73b739ee 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -53,7 +53,7 @@ static void set_place_dlt_entries(val dlt, val fun)
     lit("call-delete-expander)"),
     lit("with-update-expander"), lit("with-clobber-expander"),
     lit("with-delete-expander"),
-    lit("set"), lit("zap"), lit("flip"), lit("inc"), lit("dec"),
+    lit("set"), lit("pset"), lit("zap"), lit("flip"), lit("inc"), lit("dec"),
     lit("push"), lit("pop"), lit("swap"), lit("shift"), lit("rotate"),
     lit("del"),
     nil
-- 
cgit v1.2.3