Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dave Griffiths
mongoose-2000
Commits
91a86831
Commit
91a86831
authored
Sep 09, 2014
by
dave griffiths
Browse files
csv fix
parent
0ab78b14
Changes
1
Hide whitespace changes
Inline
Side-by-side
eavdb/entity-csv.ss
View file @
91a86831
...
...
@@ -158,12 +158,9 @@
(
lambda
(
ktv
r
)
(
cond
((
ktv-key-is-id?
ktv
)
(
msg
"helllllo"
)
(
msg
ktv
)
(
msg
(
ktv-value-is-list?
ktv
))
(
let
((
replacement
(
if
(
ktv-value-is-list?
ktv
)
(
string-append
"\""
(
uid-list->names
db
(
ktv-value
ktv
))
"\""
)
(
uid-list->names
db
(
ktv-value
ktv
))
(
uid->name
db
(
ktv-value
ktv
)))))
(
if
replacement
(
string-append
r
", \""
replacement
"\""
)
...
...
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