home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d556 / scheme2c.lha / Scheme2C / Scheme-src.lzh / scsc / expform.sch < prev    next >
Text File  |  1991-10-11  |  3KB  |  92 lines
  1. ;;; External and in-line declarations from expform.sc
  2.  
  3. (define-in-line (ID-PRINTNAME id) (get id 'printname))
  4.  
  5. (define-in-line (SET-ID-PRINTNAME! id name) (put id 'printname name))
  6.  
  7. (define-in-line (ID-VNAME id) (get id 'vname))
  8.  
  9. (define-in-line (SET-ID-VNAME! id name) (put id 'vname name))
  10.  
  11. (define-in-line (ID-CNAME id) (get id 'cname))
  12.  
  13. (define-in-line (SET-ID-CNAME! id name) (put id 'cname name))
  14.  
  15. (define-in-line (ID-MODULE id) (get id 'module))
  16.  
  17. (define-in-line (SET-ID-MODULE! id name) (put id 'module name))
  18.  
  19. (define-in-line (ID-USE id) (get id 'use))
  20.  
  21. (define-in-line (SET-ID-USE! id tag) (put id 'use tag))
  22.  
  23. (define-in-line (ID-TYPE id) (get id 'type))
  24.  
  25. (define-in-line (SET-ID-TYPE! id tag) (put id 'type tag))
  26.  
  27. (define-in-line (ID-HEAP id) (get id 'heap))
  28.  
  29. (define-in-line (SET-ID-HEAP! id flag) (put id 'heap flag))
  30.  
  31. (define-in-line (ID-DISPLAY id) (get id 'display))
  32.  
  33. (define-in-line (SET-ID-DISPLAY! id flag) (put id 'display flag))
  34.  
  35. (define-in-line (ID-BOUNDID id) (get id 'boundid))
  36.  
  37. (define-in-line (SET-ID-BOUNDID id value) (put id 'boundid value))
  38.  
  39. (define-in-line (ID-LAMBDA id) (get id 'lambda))
  40.  
  41. (define-in-line (SET-ID-LAMBDA! id lambda-id) (put id 'lambda lambda-id))
  42.  
  43. (define-in-line (ID-EXTERNAL id) (get id 'external))
  44.  
  45. (define-in-line (SET-ID-EXTERNAL! id flag) (put id 'external flag))
  46.  
  47. (define-in-line (ID-DEFINED id) (get id 'defined))
  48.  
  49. (define-in-line (SET-ID-DEFINED! id flag) (put id 'defined flag))
  50.  
  51. (define-in-line (ID-VALUE id) (get id 'value))
  52.  
  53. (define-in-line (SET-ID-VALUE! id x) (put id 'value x))
  54.  
  55. (define-in-line (ID-SET! id) (get id 'set!))
  56.  
  57. (define-in-line (SET-ID-SET!! id flag) (put id 'set! flag))
  58.  
  59. (define-in-line (ID-REFS id) (get id 'refs))
  60.  
  61. (define-in-line (SET-ID-REFS! id cnt) (put id 'refs cnt))
  62.  
  63. (define-in-line (ID-CALLS id) (get id 'calls))
  64.  
  65. (define-in-line (SET-ID-CALLS! id cnt) (put id 'calls cnt))
  66.  
  67. (define-in-line (ID-ALIAS id) (get id 'alias))
  68.     
  69. (define-in-line (SET-ID-ALIAS! id label) (put id 'alias label))
  70.  
  71. (define-in-line (ID-GOTOS id) (get id 'gotos))
  72.  
  73. (define-in-line (SET-ID-GOTOS! id cnt) (put id 'gotos cnt))
  74.  
  75. (define-in-line (ID-UNDEFREF id) (get id 'undefref))
  76.  
  77. (define-in-line (SET-ID-UNDEFREF! id var) (put id 'undefref var))
  78.  
  79. (define-in-line (ID-GLOBAL id) (get id 'global))
  80.  
  81. (define-in-line (SET-ID-GLOBAL! id alpha) (put id 'global alpha))
  82.  
  83. (define-external (VNAME exp) expform)
  84.  
  85. (define-external (CNAME exp) expform)
  86.  
  87. (define-external (LCHEXNAME exp) expform)
  88.  
  89. (define-external (NEWV var . pl) expform)
  90.  
  91. (define-external (BOUND var) expform)
  92.