And, of course, I'd forgotten to add the files for quote.
This commit is contained in:
parent
fcfdb43b05
commit
5ec1c926b0
2 changed files with 44 additions and 0 deletions
26
src/c/ops/quote.c
Normal file
26
src/c/ops/quote.c
Normal file
|
|
@ -0,0 +1,26 @@
|
||||||
|
/**
|
||||||
|
* ops/quote.c
|
||||||
|
*
|
||||||
|
* Post Scarcity Soctware Environment
|
||||||
|
*
|
||||||
|
* Special form: protect an expression from evaluation.
|
||||||
|
*
|
||||||
|
* Copyright (c): 25 Apr 2026 Simon Brooke <simon@journeyman.cc>
|
||||||
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "memory/pointer.h"
|
||||||
|
#include "memory/pso4.h"
|
||||||
|
|
||||||
|
#include "ops/stack_ops.h"
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @brief Special form: protect an expression from evaluation.
|
||||||
|
*
|
||||||
|
* (quote expression)
|
||||||
|
*
|
||||||
|
* @return the expression.
|
||||||
|
*/
|
||||||
|
struct pso_pointer quote(struct pso_pointer frame_pointer){
|
||||||
|
return fetch_arg(pointer_to_pso4(frame_pointer), 0);
|
||||||
|
}
|
||||||
18
src/c/ops/quote.h
Normal file
18
src/c/ops/quote.h
Normal file
|
|
@ -0,0 +1,18 @@
|
||||||
|
/**
|
||||||
|
* ops/quote.c
|
||||||
|
*
|
||||||
|
* Post Scarcity Software Environment: quote.
|
||||||
|
*
|
||||||
|
* Special form: protect an expression from evaluation.
|
||||||
|
*
|
||||||
|
* (c) 2026 Simon Brooke <simon@journeyman.cc>
|
||||||
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifndef __psse_ops_quote_h
|
||||||
|
#define __psse_ops_quote_h
|
||||||
|
|
||||||
|
#include "memory/pointer.h"
|
||||||
|
|
||||||
|
struct pso_pointer quote(struct pso_pointer frame_pointer);
|
||||||
|
#endif
|
||||||
Loading…
Add table
Add a link
Reference in a new issue