From 9c93bc20cc68e50461bb086f24f335de9dcc5135 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Sat, 22 Jan 2022 16:53:29 +0000 Subject: =?UTF-8?q?Implement=20=E2=8E=95DIV=20for=20allowing=20division=20?= =?UTF-8?q?by=20zero=20to=20result=20in=200=20if=20needed?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- apl9.h | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'apl9.h') diff --git a/apl9.h b/apl9.h index dc38112..12bfc03 100644 --- a/apl9.h +++ b/apl9.h @@ -135,13 +135,14 @@ struct Symbol Rune *name; Datum value; Datum *(*getfn)(void); - int (*setfn)(Datum); + void (*setfn)(Datum); }; struct Symtab { int nsyms; int io; /* index origin */ + int div; /* division method */ Symbol **syms; }; @@ -155,7 +156,7 @@ struct QuadnameDef Rune *name; datumTag tag; Datum *(*get)(void); - int (*set)(Datum); + void (*set)(Datum); fnmonad monadfn; fndyad dyadfn; opmonad monadop; -- cgit v1.2.3