And, of course, I'd forgotten to add the files for quote.

This commit is contained in:
Simon Brooke 2026-05-04 18:24:38 +01:00
parent fcfdb43b05
commit 5ec1c926b0
2 changed files with 44 additions and 0 deletions

26
src/c/ops/quote.c Normal file
View 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
View 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