tinc.nim « reject « tests - Nim - This repository contains the Nim compiler, Nim's stdlib, tools, and documentation. (mirror)

summary refs log tree commit diff stats

path: root/tests/reject/tinc.nim

blob: 8038a2a01bf50ed4e79ec452fd717fdd904628b1 (plain) (blame)

discard """
  file: "tinc.nim"
  line: 8
  errormsg: "for a \'var\' type a variable needs to be passed"
"""
var x = 0

inc(x+1)

p">(make-serializer) (let ((mutex (make-mutex))) (lambda (p) (define (serialized-p . args) (mutex 'acquire) (let ((val (apply p args))) (mutex 'release) val)) serialized-p))) (define (make-mutex) (let ((cell (list false))) (define (the-mutex m) (cond ((eq? m 'acquire) (if (test-and-set! cell) (the-mutex 'acquire))) ((eq? m 'release) (clear! cell)))) the-mutex)) (define (clear! cell) (set-car! cell false))