Return to module1.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

Annotation of OpenXM/src/kan96xx/Kan/module1.sm1, Revision 1.1.1.1

1.1       maekawa     1: @@@.quiet {   }
                      2: {(macro package : module1.sm1, 1994 -- Nov 8, 1998) message} ifelse
                      3:
                      4: /@@@.resolutionIsLoaded 0 def
                      5: /resolution {
                      6:   @@@.resolutionIsLoaded {
                      7:      sResolution
                      8:   }
                      9:   {
                     10:     (Efficient resolution is still under construction, cf. Kan/lib/tower-sugar.sm1, tower.sm1 ) message
                     11:     (Loading tower.sm1 from the load path: sResolution) message
                     12:     (tower.sm1) run
                     13:     /@@@.resolutionIsLoaded 1 def
                     14:   } ifelse
                     15: } def
                     16:
                     17:
                     18: /lpoint { init @@@.esymbol . degree } def
                     19:
                     20: %%%%%%%%%%%%%%%%%%%%%%%%%%
                     21:
                     22:
                     23: ;