diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-05 15:02:55 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-05 15:02:55 -0700 |
| commit | 5fca71f1ee984f55f99ecf0ddf2e45dd492822ac (patch) | |
| tree | 1bcf52c552846d4e0e10d680e1095c58b0d8eb97 /mu.arc | |
| parent | bf6a25faa94931b2c3ee6168403a5469773508cf (diff) | |
| download | mu-5fca71f1ee984f55f99ecf0ddf2e45dd492822ac.tar.gz | |
108
Diffstat (limited to 'mu.arc')
| -rw-r--r-- | mu.arc | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/mu.arc b/mu.arc index e80c1795..ab1bc05a 100644 --- a/mu.arc +++ b/mu.arc @@ -93,20 +93,6 @@ (def typeinfo (operand) (types* ty.operand)) -;? (def is-array (operand) -;? (if (pos 'deref metadata.operand) -;? (if typeinfo.operand!address -;? ((types* typeinfo.operand!elem) 'array) -;? (err "can't deref non-address @operand")) -;? typeinfo.operand!array)) -;? -;? (def is-record (operand) -;? (if (pos 'deref metadata.operand) -;? (if typeinfo.operand!address -;? ((types* typeinfo.operand!elem) 'record) -;? (err "can't deref non-address @operand")) -;? typeinfo.operand!record)) - (def sz (operand) ;? (prn "sz " operand) ; todo: override this for arrays |