← Back to branch summary

~ubuntu-branches/ubuntu/precise/gnome-games/precise-proposed

« back to all changes in this revision

Viewing changes to aisleriot/rules/spider.scm

  • Committer: Package Import Robot
  • Author(s): Daniel Holbach
  • Date: 2007-05-02 12:08:49 UTC
  • mfrom: (1.2.1)
  • mto: (163.1.3 precise) (3.2.1 sid) (1.4.1)
  • mto: This revision was merged to the branch mainline in revision 40.
  • Revision ID: package-import@ubuntu.com-20070502120849-p1824p19fzg6y0c8
Tags: upstream-2.19.1
Import upstream version 2.19.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
aisleriot/rules/spider.scm
270
270
 
271
271
(define (get-options)
272
272
  (list 'begin-exclusive 
 
273
        (list (_"One Suit") suits-one)
 
274
        (list (_"Two Suits") suits-two)
273
275
        (list (_"Four Suits") suits-four)
274
 
        (list (_"Two Suits") suits-two)
275
 
        (list (_"One Suit") suits-one)
276
276
        'end-exclusive))
277
277
 
278
278
(define (apply-options options)
279
 
  (set! suits-four (cadr (list-ref options 1)))
 
279
  (set! suits-one (cadr (list-ref options 1)))
280
280
  (set! suits-two (cadr (list-ref options 2)))
281
 
  (set! suits-one (cadr (list-ref options 3))))
 
281
  (set! suits-four (cadr (list-ref options 3))))
282
282
 
283
283
(define (timeout) #f)
284
284