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     ! 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: ;