Преглед на файлове

remove inline flag

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7296 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore преди 8 години
родител
ревизия
a60fb4dfda
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      source/AGfxPaths.Mod

+ 1 - 1
source/AGfxPaths.Mod

@@ -627,7 +627,7 @@ MODULE GfxPaths; (** portable *)	(* eos  *)
 				END
 			END Scan;
 			
-			PROCEDURE- get (VAR x, y: REAL);
+			PROCEDURE get (VAR x, y: REAL);
 			BEGIN
 				IF SELF.cpos = CoordBlockSize THEN
 					SELF.curCB := SELF.curCB.next; SELF.cpos := 0