Little fixes

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@85 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Jan 16, 1998 · 0e70608 · 0e70608
1 parent cc8cabc
commit 0e70608
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/modeq/dump.rml b/modeq/dump.rml
@@ -238,11 +238,11 @@ and dump_class: Absyn.Class => () =
 end
 and dump_class_modification =
 
-	axiom	dump_class_modification(NONE)
+	axiom	dump_class_modification([])
 
 	rule	print "(" & dump_list(l,dump_element_arg,",") & print ")"
 		---------------------------------------------------------
-		dump_class_modification(SOME(l))
+		dump_class_modification(l)
 
 end
 and dump_element_arg =
@@ -307,10 +307,11 @@ and dump_elementspec: Absyn.ElementSpec => () =
 		dump_elementspec(Absyn.CLASSDEF(repl,cl))
 
 
-	rule	print "EXTENDS(" & print s & print "," &
+	rule	path_string(p) => s &
+		print "EXTENDS(" & print s & print "," &
 		dump_list(l,dump_element_arg,",") & print ")"
 		------------------------------------------
-		dump_elementspec(Absyn.EXTENDS(s,l))
+		dump_elementspec(Absyn.EXTENDS(p,l))
 
 	rule	print "COMPONENTS(" &
 		dump_select(f,"FLOW,","") &