Commit 3056a285 authored by Dave Cooper's avatar Dave Cooper
Browse files

normalize pathname on file-name in step-reader

parent 53ef0da7
......@@ -64,7 +64,8 @@ If some trimmed surfaces or B-reps are blanked, they are grouped into a second,
)
:computed-slots
((data (read-step-file* *geometry-kernel* (format nil "~a" (the file-name))
((data (read-step-file* *geometry-kernel* (let ((file (namestring (translate-logical-pathname (the file-name)))))
(if (probe-file file) file (error "~a: file not found.~%" file)))
:finalize-on self
:make-all-surfaces-trimmed? (the make-all-surfaces-trimmed?)
;;:break-up-breps-into-trimmed-surfaces? (the break-up-breps-into-trimmed-surfaces?)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment