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
nebogeo
symbai
Commits
37bd7a16
Commit
37bd7a16
authored
Apr 03, 2014
by
Dave Griffiths
Browse files
autospouse
parent
3050a43c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
android/assets/starwisp.scm
android/assets/starwisp.scm
+1
-1
No files found.
android/assets/starwisp.scm
View file @
37bd7a16
...
@@ -879,7 +879,7 @@
...
@@ -879,7 +879,7 @@
;; BIDIRECTIONAL AUTOSPOUSE
;; BIDIRECTIONAL AUTOSPOUSE
(
when
(
and
(
eqv?
requestcode
spouse-request-code
)
(
when
(
and
(
eqv?
requestcode
spouse-request-code
)
(
get-current
'choose-result
#f
))
(
get-current
'choose-result
#f
))
(
update-entity
db
"sync"
(
entity-id-from-unique
db
table
(
get-current
'choose-result
#f
))
(
update-entity
db
"sync"
(
entity-id-from-unique
db
"sync"
(
get-current
'choose-result
#f
))
(
list
(
ktv
"id-spouse"
"varchar"
(
entity-get-value
"unique_id"
))))
(
list
(
ktv
"id-spouse"
"varchar"
(
entity-get-value
"unique_id"
))))
(
msg
"done..."
))
(
msg
"done..."
))
...
...
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