Return to module1.sm1 CVS log

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

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

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