fix effect.scm

zaoqi · Oct 21, 2017 · 684d978 · 684d978
1 parent aaebb8e
commit 684d978
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/effect.scm b/effect.scm
@@ -13,8 +13,9 @@
 ;;  You should have received a copy of the GNU Affero General Public License
 ;;  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 (define-record-type op
-  (op v)
+  (op op v)
   op?
+  (op op-op)
   (v op-v))
 (define-record-type >>=
   (>>= x f)