Path: news.daimi.aau.dk!not-for-mail
From: Anders Jacob Truelsen <anders.truelsen@daimi.aau.dk>
Newsgroups: daimi.beta
Subject: Referencer til =?ISO-8859-1?Q?singul=E6re?= patterns ?
Date: 19 Jun 1998 12:19:11 +0200
Organization: DAIMI, Computer Science Dept. of Aarhus Univ.
Lines: 51
Sender: legolas@humulus.daimi.aau.dk
Message-ID: <yzwn2b9bso0.fsf@humulus.daimi.aau.dk>
NNTP-Posting-Host: humulus.daimi.aau.dk
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Newsreader: Gnus v5.5/Emacs 19.34
Xref: news.daimi.aau.dk daimi.beta:10351

Hejsa !

Jeg har brug for en ref. til et pattern. én gang, så jeg ville gerne
være fri for at skulle erklære det som navngivent pattern.

Det jeg gerne ville kunne skrive er:

ORIGIN '~beta/basiclib/current/betaenv';
--- program: descriptor ---
(# doItLater:
     (# pat: ##object
     enter pat##
     do (* wait a while *) 
	pat;
     #);

do (# do 'hej verden' -> putLine; #)## -> doItLater;
#)

Lige nu er jeg nødt til at skrive :

ORIGIN '~beta/basiclib/current/betaenv';
--- program: descriptor ---
(# doItLater:
     (# pat: ##object
     enter pat##
     do (* wait a while *) 
	pat;
     #);

   p: (# do 'hej verden' -> putLine #);

do p## -> doItLater;
#)

eller det mindre pæne :-^)

ORIGIN '~beta/basiclib/current/betaenv';
--- program: descriptor ---
(# doItLater:
     (# pat: ##object
     enter pat##
     do (* wait a while *) 
	pat;
     #);

do (&(# do 'hej verden' -> putLine; #)[])._struc -> doItLater;
#)

mvh.
/anders