[BACK]Return to module1.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan
File: [local] / OpenXM / src / kan96xx / Kan / module1.sm1 (download)

Revision 1.2, Sun Jan 16 07:55:39 2000 UTC (24 years, 4 months ago) by takayama
Branch: MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +1 -0 lines 

Congratulation of sm1 version 3.* !

%% $OpenXM: OpenXM/src/kan96xx/Kan/module1.sm1,v 1.2 2000/01/16 07:55:39 takayama Exp $
@@@.quiet {   }
{(macro package : module1.sm1, 1994 -- Nov 8, 1998) message} ifelse

/@@@.resolutionIsLoaded 0 def
/resolution {
  @@@.resolutionIsLoaded {
     sResolution
  }
  {
    (Efficient resolution is still under construction, cf. Kan/lib/tower-sugar.sm1, tower.sm1 ) message
    (Loading tower.sm1 from the load path: sResolution) message
    (tower.sm1) run
    /@@@.resolutionIsLoaded 1 def
  } ifelse
} def


/lpoint { init @@@.esymbol . degree } def

%%%%%%%%%%%%%%%%%%%%%%%%%%


;