find individual back fixed

nebogeo · Jun 5, 2014 · cb1894d · cb1894d
1 parent a5437c5
commit cb1894d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/android/assets/starwisp.scm b/android/assets/starwisp.scm
@@ -786,7 +786,8 @@
    (lambda (activity) '())
    (lambda (activity requestcode resultcode)
      (cond
-      ((eqv? requestcode choose-code)
+      ((and (eqv? requestcode choose-code)
+            (get-current 'choose-result 0))
        (list (start-activity "individual" 0 (get-current 'choose-result 0))))
       ((eqv? requestcode photo-code)
        (list (update-widget
@@ -1577,6 +1578,7 @@
      ))
    (lambda (activity arg)
      (set-current! 'activity-title "Chooser")
+     (set-current! 'choose-result #f)
      (activity-layout activity))
    (lambda (activity arg)
      (list (update-individual-filter (list))))