Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
61f370d7
Commit
61f370d7
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2003-05-10 15:07:38 by cvscast] Empty log message
Original author: cvscast Date: 2003-05-10 15:07:38+00:00
parent
dda6d588
Changes
1
Hide whitespace changes
Inline
Side-by-side
runtime/value.ml
View file @
61f370d7
...
...
@@ -126,8 +126,7 @@ and print_seq ppf = function
|
_
->
()
and
print_str
ppf
=
function
|
Pair
(
Char
c
,
y
)
->
let
c
=
Chars
.
to_char
c
in
Format
.
fprintf
ppf
"%s"
(
Char
.
escaped
c
);
Chars
.
print_v_in_string
ppf
c
;
print_str
ppf
y
|
v
->
Format
.
fprintf
ppf
"
\'
"
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment