diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-07-11 22:53:51 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-07-11 22:53:51 -0700 |
| commit | 96ebe1423b427c47d15517373cb26ead057b64c6 (patch) | |
| tree | d6ac2164ea790351f57a04a80305cacd5e1ac03a /mu.arc | |
| parent | a5e757e1abefad8de527f3e7a6e8602cce62d468 (diff) | |
| download | mu-96ebe1423b427c47d15517373cb26ead057b64c6.tar.gz | |
22 - better org'n for fn clauses
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index d556e30a..1953e7c6 100644 --- a/mu.arc +++ b/mu.arc @@ -3,6 +3,7 @@ (def clear () (= types* (obj integer (obj size 1) + type (obj size 1) location (obj size 1) address (obj size 1) boolean (obj size 1))) @@ -71,6 +72,9 @@ eq (= (memory* oarg.0.1) (iso (memory* arg.0.1) (memory* arg.1.1))) + neq + (= (memory* oarg.0.1) + (~iso (memory* arg.0.1) (memory* arg.1.1))) arg (let idx (if arg arg.0 |