HOL-OCL
/
su4sml
1
0
Fork 0
Code Issues Pull Requests Releases Activity

redundant match in name_of 

manuel krucker


git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@6303 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
Manuel Krucker 2007-04-03 15:39:54 +00:00
parent 87d9937b8d
commit f9a4b91ece
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/rep_core.sml
View File

@ -447,7 +447,6 @@ fun name_of (Class{name,...}) = path_of_OclType name
| name_of (Enumeration{name,...}) = path_of_OclType name
| name_of (Primitive{name,...}) = path_of_OclType name
| name_of (Template{classifier,...}) = name_of classifier
| name_of _ = error "in Rep.name_of: Classifier has no name represenation"
fun short_name_of C = case (name_of C) of
[] => error "in Rep.short_name_of: empty type"