diff options
Diffstat (limited to 'mu.arc')
-rw-r--r-- | mu.arc | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/mu.arc b/mu.arc index 55593947..6df02fb3 100644 --- a/mu.arc +++ b/mu.arc @@ -177,14 +177,6 @@ line-address-address (obj size 1 address t elem '(line-address)) screen (obj array t elem '(line-address)) screen-address (obj size 1 address t elem '(screen)) - ; chessboard - square (obj size 1) - square-address (obj size 1 address t elem '(square)) - file (obj array t elem '(square)) ; todo: include array dimensions in type table - file-address (obj size 1 address t elem '(file)) - file-address-address (obj size 1 address t elem '(file-address)) - board (obj array t elem '(file-address)) - board-address (obj size 1 address t elem '(board)) ))) ;; managing concurrent routines @@ -1201,6 +1193,11 @@ elems (map cdar fields) fields (map caar fields))))) + ; primitive <type> + primitive + (let (name) rest + (= type*.name (obj size 1))) + ; address <type> <elem-type> address (let (name types) rest |